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// winCorr32PktPC.cpp - Win32 PocketPC GUI version 
// File Name: winCorr32PktPC.cpp 

#define win32_lean^nd_mean 
5 #include <windows.h> 
#include <voicectl.h> 
#include "resource.h 
#inc1ude "winaudio2.h 

10 #define my_REC_time 5000 //mi li sees 

#define NOISE_CORRECTION 3.5 //3.75 //4.10 

#define B CALCTHRES TRUE 

#dSine USELESS_NOISE_SAMPLE_THRES 0x4000 

15 

#define noise_thres ^-^^.tn 
#define max_FILES_CHOP 3 //lO 
#define min_samples_chop 50 
#define max_samples_chop 130 
20 Jdlfine min_samples_reject chop 800 //400 
#define samples_per_sec 44100 
#define bits_per_sample 16 



25 



35 



40 



45 



50 



#define scale_factor Ox7fff p^ctor-* 
#define normC s) ( (real_t)s / scale_factor:) 



60 



#define b_chop_chk TRUE 
#define C0RR_thres 0.6 



30 typedef double real_t; 

"iySed^'Bt^EM^ple-t; //8-Mt PCM encoded samples 

?j;idef"i^S?Eiarple!t; //16-bit (signed) PCM encoded 



samples 
#endi f 

tchar szAppE] = TEXTC'Termite Detector"); 
TCHAR szL?bFilder[] = TEXTC;termite_lib\\ ); 
TCHAR szRecFileC] = text ("tdtor_snd.wav ); 
TSJr lz5lportFile[] = TEXTC-tdtor rep.txf); 
char szConfigFileC] = "tdtor cfg.txt , 
char szCorrThresKeyC] = ' corr_thres , 

HWND hwndMain, hwndvoice; 
FILE *f Report; 
real_t corr_thres; 

TCHAR ascii_cnt[ 8], chunkfile[ 256], szDBaseFile[ 256]; 
win32_find_data fdata; 



//Function declarations 
55 // 



int WXKAPI wiHMainC "-S^KCEjjXnstance, «Ns™^^ 
BOOL CALLBACK winCorrDljProcCHWNDjjwndolg, UINT^^ 

void RecordAudioQ ; 
void ProcessFileO; 
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void chopO; 
void cross O; 

5 //Function definitions 
// 

#include "winaudio2. c" 
10 //creates main popup dialog box 

15 ' return 01alogBox( S^gJMSS??^;"""""'"''^' ' 

} 

//main dialog procedure dispatcher.. 
^" 'b^L callback WinCorrOlgProcCHWND^WndDlg. UINT^^ 

^ switch ( msg) 
25 { 

case wnlinitdialog: 

° MessageBoxC hwndMain. text("wm_initdialog") , szApp. mb_ok); 

#endif ^ ^ . 

30 hwndMain = hwndDlg; 

swi^c^(M;^e^fr^fi?e4tring( szConfigFile. szCorrThresKey. 
sCorrThres) ) 

case 0: 

"SLsa^eBoxC hwndMain, TEXT("Config file or 'corr.thres' key 
NOT found, defaulting to 0.6"). szApp, MB_OK); 
40 corr_thres = CORR_THRES; 

{ 

FILE *f = fopenC szConfigFile, "a"); 

fJrin^f(^ffHn%s = %s\n". szCorrThresKey. "0.6"); 
45 fcloseC f); 

break; 
cas e 1 ' 

corrlthres = atof( sCorrThres); 
50 }// switch 

return true; 

case wm_command: 

° MessageBoxC hwndMain. text("wm_COMMAND") . szApp. mb_OK); 

*^"'''^f ( LOWORDC wParam) == idc_btn_detect) //user clicked "detect" 

RecordAudioQ ; 
60 return TRUE; 

case WM.NOTIFY: //voiceRecorder sent msg to owner wnd (main 
di alog) 
#if 0 
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MessageBoxC hwndMain. text("wm_notify") , szApp, mb_ok); 

#endi f 

Handle_WM_.NOTlFY( wParam, iParam); 
return TRUE; 

case wm_timer: //timer expired 
KillTimerC hwndMain, 1); 

^ MessageBoxC hwndMain. TEXT("WM_TIMER") . szApp, MB.OK) ; 

*^"'''^endMessage( hwndMain, VRM_OK, 0, 0); //finish rec and save file 
return TRUE; 

case WM^CLOSE: 

° MessageBoxC hwndMain. textC"wm.close") . szApp, mb.OK); 

#endif , ^ 

EndDialogC hwndDlg. 0); 

} 

return FALSE; 

} 

//handles messages from voiceRecorder . . 

void Handle^WM_NOTlFYC WPARAM WParam, LPARAM iParam) 

^ NMHDR *pnmh = &CCNM_VOlCE^RECORDER *)1 Param) ->hdr ; 
switch C pnmh->code) 

^SeislgeBSxfhSJaMain. text("vrn_record_start") . szApp. mb.ok); 

break ' 

save f i 1 e . . 
break; 

//"^^ Ti?ageBox( hwndMain, TEXT("VRN_OK") , szApp, MB OK^: 
" ProclssFileO; //recording completed, now process file., 
break; 

} 

return; 

} 

int MyCetProfileStringC LPCSTR sFilename. LPCSTR sKey. lpstr svalue) 

^ FILE *f; 
int r; 

char sReadKey[ 64] ; 

f = fopenC SFilename, "r"); 

if (f == NULL) 

return 0; //O: file not found 
for C; ; ) 

^ if (fscanfC f, " %[A-Z_a-zO-9] = %s ■'. sReadKey, svalue) != 2) 

^ r = -1; //-I: key not found 
break; 

if CstrcmpC sKey, sReadKey) == 0) 
^ r = 1; //I: key found 
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break; 

} 

fcloseC f); 
return r; 

} 

void RecordAudioQ 

^ // initialize the VR control struc and create it.. 
CM_voiCE_RECORDER cmvr; 

memsetC &cmvr, 0, sizeofC CM_voiCE_RECORDER) ); 
cmvr.cb = sizeofC cm_voice_recorder) ; 
// cmvr.dwstvle = vrs_no_move; // I vrs_no_ok; . 
cmvr.xPos = 0; // use -1 to center the control relative to owner. 
cmvr.yPos =0; . 
cmvr.nwndParent = hwndMain; 
cravr.lpszRecordFileName = szRecFile; 
hwndvoice = voiceRecorder_Create( &cmvrj; 
if (hwndvoice = null) 

^ MessageBoxC hwndMain, TEXTC"voiceRecorder_Create() failed"), NULL, 
MB_ICON ERROR) ; 

EndDialogC hwndMain, 0); 

} 

// tell VR to start recording.. ,„ 
//MessageBoxC hwndMain, TEXTC"click to send vrm_record") , szApp, 

//~°SendMessageC hwndvoice, vrm_record, 0, CLPARAM)szRecFile) ; 
// MessageBoxC hwndMain, textC"vrm_RECORD sent"), szApp. mb_OK); 

// set a timer so that recording stops automatically.. 
/* if (SetTimerC hwndMain, 1, MY_REC_TIME, NULL) == 0) 

^ MessageBoxC hwndMain, TEXTC"SetTimerC) failed"), null, 
MB_icoN error) ; 

EndDialogC hwndMain, 0); 
}*/ 

} 

void ProcessFileC) 

ChopO ; 
CrossO ; 

// M^IsageBoxC' hwndMain, TEXT("No detection. Try again"), szApp, 
MB_OK) ; 

} 

class Signal 
publ i c : 

sample_t *buff; ^ ^ ^ ^ u ^ ,^ 
UINT n; //number of samples (not bytes!) 
real_t avg; 
real_t sum2; 
sample_t min; 
sample_t max; 

Signal ( void *_buff, uint _n) 
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60 



buff = (sample_t *) _buff; 

n = _n; 

initO; 

} 

5 

void initO 

tmn = 0; 
max = 0; 
10 avg = 0; 

sum2 = 0; 
UINT i ; 

for (i = 0; i < n; 

//avg = ((avg2 * i) + N( buff, i)) / (i +1); 

avg += NORM( buff[ i]); 

^ real.t prod = NORM( buff[ i]) * norm( buff[ i]); 

20 sum2 += prod; 

if (max < buff[ i]) 
max = buff [ i] ; 
if (buffC i] < min) 
25 min = buff [ i] ; 

avg /= n; 
}//initO. 
};//class Signal 

30 

//ChopO 
void ChopO 
35 DWORD nRecsize; 

BYTE *pRecBuff = NULL; 

UINT file_cnt = 0; 
// FILE *f Report; 

40 fReport = _tfopen( szReportFile, TEXT("w") ); 
if (fReport == NULL) 

^ MessageBox( hwndMain, TEXT("Can't create report file (share 
violation?)"), NULL, mb_iconstop) ; 
45 return; 
} 

_ftprintf( fReport, TEXT("\n*** chop report ***\n\n") ); 
50 _ftprintf( fReport, TEXT("Reading \"%s\" . . "), szRecFile); 

pRecBuff = (BYTE *)ReadWAVE( szRecFile, &nRecSize, hwndMain); 

if (pRecBuff == NULL) 

55 ^ _ftprintf( fReport, TEXT("f ailed!") ); 

goto finalize; 

} 

nRecsize /= sizeof( sample_t); //treat as sample unit (16 bits) 
_ftprintf( fReport, TEXT("done!\nSamples read = %d (%.2f 
secs)\n"). nRecsize, (float) nRecsize / SAMPLES_PER_SEC) ; 
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10 



real_t noise_avg =0.; 
UINT i, j, last_max, first_cut, last_cut, 
int max_raax = 0; 

Signal scardC pRecBuff, nRecSize); 

#if 1 

_ftprintf( f Report, , 
TEXTC'min = %d\n") 
TEXTC'max = %ci\n") , 
scard.min, 
s card. max 

); 

15 #endif 

for (i = 0; i < scard.n. scard.buff[ i] == 0; i++); //skip 
first blank samples in .wav 

20 for ( i = ^Ci^==^0)? 1 : i . 3^= 0; ^ ^,,_s^„pLEs_CHOP; 

i++) 

^ if (absC scard.buffE i - 1]) <= abs( scard.buff[ i]) && 
25 //detect maximums ^^^^ scard.buffE i + 1]) <= abs( scard.buff[ i]) 



30 



35 



45 



50 



else continue; 
if (abs( scard.buffE i]) > useless_noise_sample_thres) 
conti nue ; 

if (max_max < abs( scard.buffE i])) 
max_max = abs( scard.buffE i]). 

noise_avg = ((noise_avg * j) + fabs( norm( scard.buffE 
i]))) / Cj + 1); 



++:; 

40 }//for 

real_t raw_noi se_avg = noise_avg; 
noise_avg *= noise_correction * (i + noise_thres) ; 
// MessageBoxC hwndMain, text("3"), szApp. mb_OK); 

ftpnntfC f Report, >l4:\„-•^ 
" TEXTC'Avg. of max sample values = (f-4r\n ; 
TEXTC'Thres. correction (user spec) = ^;^T\n ; 
TEXTC'internal correction constant = %.4T\n j 
TEXT("Actual noise level = %.4f\n ) 
TEXT("\n") , 
55 raw_noi se_avg , 

NOISE_THRES, 
NOISE_CORRECTION , 

noi se_avg) ; 

^else r. . sir 

60 _ftpnntf( f Report, i „^ o/ AfXn"^ 

TEXTC'Avg. of max sample values = f ) 
TEXTC'Thres. correction (user spec) = ^.Zt\n ) 
TEXT(" Actual noise level = %.4f\n ) 
TEXT("\n") , 
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10 



15 



20 



raw_noi se_avg * NOISE_CORRECTION, 

NOISE_THRES, 

noi se_avg) ; 

#endif 

for (i = 0; i < scard.n, scard.buff[ i] == 0; //skip 
first blank samples in .wav 

get_rising_edge: 

for ( last_max = i , i = (i == 0)? 1 : i ; 
i < scard.n - 1; 
i++) //find first cut 

^ if (absC scard.buffC i - 1]) <= abs( scard.buff[ i]) && 
//detect maximums ^^^^ scard.buffC i + 1]) <= abs( scard.buffC i]) 

^ ' else continue; 

first_cut = last_max; 
last_max = i ; 



if (fabs( normC scard.buffC i])) < noise_avg) 
25 continue; 

get_falling_edge: 

for (; i < scard.n - 1; i++) //traverse thru maxs > 

30 noi se 

if (abs( scard.buffC i - 1]) <= abs( scard.buffC i]) && 
//detect maximums ^^^^ scard.buffC i + 1]) <= abs( scard.buffC 

35 i]) ); 

else continue; 

if CfabsC NORMC scard.buffC i]) ) < noise_avg 

&& i - first_cut + 1 >= (unsigned)MiN_SAMPLES_CHOP 

40 //add or remove this line 
) 

break; 

}//for 

45 UINT tmp_cut = i ; 

i < tmp.cut + 1 + (unsigned)MiN_SAMPLES_RE3ECT_CH0P && i < 
scard.n - 1; 

i++) 

Sf CabsC scard.buffC i -!])<= absC scard.buffC i]) && 
//detect maximums ^^^^ scard.buffC i + 1]) <= abs( scard.buffC i]) 

55 ' else continue; 



} 
} 



if (fabsC NORM( scard.buffC i]) ) > noise_avg) 

^ if (i - first_cut + 1 < (unsigned)^4AX_SAMPLES_CH0P) 
60 goto get_falling_edge; 

goto get_rising_edge; 
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i = tmp_cut; //no problem, discard what was done after begin 

change 

° for (; i < scard.n - 1; //find last cut 

^ if (abs( scard.buffC i - 1]) <= abs( scard.buff[ i]) 8& 
//detect maximums ^^^^ scard.buff[ i + 1]) <= abs( scard.buff[ 

^ break; 

} 

#endif 

last_cut = last_max = i; 

if (i >= scard.n - 1) 
last_cut = scard.n - 1; 

int chunksize = _tcs1en( szRecFile) - sizepf( 
TEXTC'.wav") ) / sizeofC tchar) +1; . , . ^ 

.tcsncpyC chunkfile, szRecFile, chunksize); 
chunkfileC chunksize] = '\0'; 

_tcscat( chunkfile, text("(") ); 

_itot( ++file_cnt, ascii_cnt, 10); 
_tcscat( chunkfile, ascii_cnt); 

_tcscat( chunkfile, text(") -wav") ); 

if (first_cut >= last_cut) 

^ _ftprintf( f Report, TEXT("WAV file inconsistency\n") ); 
goto finalize; 

DWORD sizeZwrite = Clast_cut - first_cut + 1) * sizeofC 

sampl e_t) ; 

_ftprintf( f Report, text ("writing \"%s\" at (begin, end) 
= (%d, %d)... first_cut, last_cut); 

if (writeWAVEC chunkfile, sizeZwrite, scard.buff + 
first_cut, hwndMain) == FALSE) 

^ _ftprintf( f Report, TEXT("failed!\n") ); 
} 

^ lftprintf( f Report, TEXT("OK\n") ); 

first_cut = last_cut + 1; 

if (file_cnt >= MAX_FILES_CHOP) 

^ _ftprintf( f Report, TEXT("Maximum # of files reached 

(%d files).\n").- MAX_FILES_CHOP) ; 

break; 

} 

} //outter 'for' 
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^^_ftpriHtf( f Report, text("no chopping done\n") ); 

//get rid of chopped files from previous sessions.. 

^ ^ TCHAR chunkfileC 512], ascii_cnt[ 8]; 

int chunksize = _tcslen( szRecFile) - sizeofC 
TExrC'.wav") ) / sizeofC tchar) + 1; 

10 do 

^ _tcsncpy( chunkfile, szRecFile, chunksize); 

chunkfileC chunksize] = '\0'; 

15 _tcscat( chunkfile, textC'C") ); 

_itot( ++file_cnt, ascii_cnt, 10); 
_tcscat( chunkfile, ascii_cnt); 

20 _tcscat( chunkfile, TEXT(") .wav") ); 

} while ( DeleteFileC chunkfile) ); 

// ^ shellExecuteC hwndwain. NULL, szReportFile, NULL, NULL, SW_SHOW); 
25 //open^ report file 

f i nal i ze : 

30 if (pRecBuff) 

Global Free( pRecBuff); 

_ftprintf( f Report. TEXT("\n*** end of chop REPORT ***\n") ); 

35 if (f Report) 

fcloseC f Report); 

}//chopO 
40 //cross 0 
void cross () 

^ DWORD nRecSize, nDBaseSize; 

45 BYTE *pRecBuff = NULL; 

BYTE *pDBaseBuff = NULL; 

UINT file_cnt; 
// FILE *f Report; 

// MessageBoxC hwndMain, TExrC'crossQ began"), szApp, mb_ok); 

fReport = _tfopen( szReportFile, TEXT("a") ); 
if (fReport == NULL) 

^ MessageBoxC hwndMain, TEXT("can't create report file (share 
violation?)"), NULL, MB_IC0NERR0R) ; 
return; 

} 

_ftprintf( fReport, TEXT("\n*** CROSS REPORT ***\n\n") ); 
_tcscpy( chunkfile, szRecFile); 



50 



55 



60 
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uiNT old_len = _tcslen( chunkfile) - sizeofC TEXT(".wav") ) / 
sizeofC TCHAR) + 1; 

for (file_cnt = 1; ; file_cnt++) // chopped files loop 
{ 

if (B_CHOP_CHK) 

^ chunkfileC old_len] = '\0'; 

_tcscat( chunkfile, text("(") ); 
_itotC file_cnt, ascii_cnt, 10); 
_tcscat( chunkfile, ascii cnt); 
_tcscat( chunkfile, TEXT(").wav ) ); 

} 

pRecBuff = (BYTE *)ReadWAVE( chunkfile, &nRecSize, hwndMain); 
if (pRecBuff == NULL) , ^ 

break; //means no more chopped files (or severe error) 

Signal scard( pRecBuff, nRecSize / sizeof( sample_t) ); 
int len; 

//get path and append a trailing backslash if needed 
_tcscpy( szDBaseFile, szLibFolder) ; 
len = _tcslen( szDBaseFile); 

//append wildcards for "find" functions 
ItcscpyC szDBaseFile + len, TEXT("*.wav ) ); 

HANDLE hfind = FindFirstFileC szDBaseFile. Afdata); //obtain file 
size, attributes, etc. 

if (hfind == invalid_handle_value) 

^ MessageBox( hwndMain, TEXT("\"termite_lib\" database folder not 

^°""^'"kp?intf(''fRepo;-t, TEXT("FindFirstFileO failed on \"%s\"\n"). 

szDBaseFile) ; 

goto finalize; 

BOOL file_found = false; 
do 

^ if (fdata.dwFileAttributes == file^ttribute_directory) 
continue; 

file_found = true; 

_tcscpy( szDBaseFile + len, fdata.cFileName) ; 

pDBaseBuff = (BYTE *)ReadWAVE( szDBaseFile, &nDBaseSize, 

hwndMain); 

if (pDBaseBuff == NULL) 

^ _ftprintf( f Report, TEXT("Reading database file \"%s\" 
fai1ed!\n"), fdata.cFileName); 
goto finalize; 

Signal dbase( pDBaseBuff, nDBaseSize / sizeofC sample_t) ); 
_ftprintf( f Report, TEXT("cross-Correlating \"%s\" vs. 
^ chunkfile, fdata.cFileName); 
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//correlate 

int ns = minC scard.n, dbase.n); 

int nb = max( scard.n, dbase.n); ^ , u 

sample^t *s = (scard.n < dbase.n) ? scard.buff : dbase.buff, 
sample^t *b = (scard.n >= dbase.n) ? scard.buff : dbase.buff; 
real_t avgsumZ = sqrt( scard.sumZ * dbase.sumZ); 

real_t maxcorr; 

real_t corrx; 
int i , k; 

#define Prod( a, b) ((a) * (b)) 
#define avg avgsumZ 

maxcorr =0; , ^ 

for (k = 0; k < ns - min_samples_chop; k++) 

{ 

real_t corr = 0; 
for (i = k; i < ns; i++)^ ^ .^^ , ur • n^ ^ 

corr += Prod( NORM( s[ i]), NORM( b[ i - k]) ); 
corr /= avg; //change this as well!!! 
if (maxcorr < corr) 

maxcorr = corr; 

for (k = 1; k < nb - ns + 1; k++) 

real^t corr = 0; 
for (i =0; i < ns; i++) , . r . .-in % 

corr += Prod( NORM( s[ i]), NORM( b[ i + k]) ); 
corr /= avg; //change this as well!!! 
if (maxcorr < corr) 

maxcorr = corr; 

for (k = nb - ns + 1; k < nb - min^amples.chop; k++) 

^ real.t corr = 0; 

for (i = k; i < nb; i++) ^ r • n> ^. 

corr += Prod( NORM( b[ i]), NORM( s[ i - k]) ); 
corr /= avg; //change this as well!!! 
if (maxcorr < corr) 

maxcorr = corr; 

} 

corrx = maxcorr; 

_ftprintf( fReport, TEXTC'%f\n\n") . corrx); 
if (maxcorr > corr_thres) 

^ MessaqeBox( hwndMain, TEXT("lnsect detected!"), szApp, MB_OK); 
goto finalize; 

if (Global Free ( pDBaseBuff) == NULL) 
pDBaseBuff = null; 

// MessageBox( hwndMain, TEXT("chopped file crossed"), szApp. 
MB^OK) ; 

} while (FindNextFile( hfind, Afdata) ); 

if (GetLastErrorO != ERROR„NO.MORE_FILES) 

^ „ftprintf( fReport, TEXT("FindNextFile() failed!\n") ); 
goto finalize; 
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} 

^IftJrT^tfC^f Report, textC'no .wav files found in library!\n") 

); 

if (pRecBuff && Global Free ( pRecBuff) == null) 
pRecBuff = null; 

if (B_CHOP_CHK == FALSE) 

break; 

}//for (chopped files loop) 

MessageBoxC hwndMain, text("No detection. Try again"), szApp, MB_OK) ; 

// shel 1 Execute ( m_hwnd. null, szReportFile, null, null, sw.show); 
//open report file 

finalize: 

if (pDBaseBuff) 
Gl obal Free( pDBaseBuf f ) ; 

if (pRecBuff) 
Global FreeC pRecBuff) ; 

_ftprintf( f Report, TEXT("*** END OF CROSS REPORT ***\n") ); 

if (f Report) 

fcloseC fReport); 

}//cross 
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//Microsoft Developer Studio generated resource script. 
//File Name: winCorr32PktPC. rc 
#include "resource. h" 

iiiiii 

// Generated from the TEXTINCLUDE 2 resource. 

10 // 

#inc1ude "newres.h" 

/l/ll/l///ll/lllll/lllllllllllllll/lllll/Hllllllflll"ll""f"l""" 
15 #undef apstudio_readonly_symbols 

lllllllll/ll/llllllllllllllllllllll/IIIIIHI/llll'llfl//IIIH"""ll" 
// English (U.S.) resources 

20 

#if !defined(AFX_RESOURCE_DLL) II defined (AFX_TARG_ENU) 

#ifdef _WIN32 

LANGUAGE LANG_ENGLISH , SUBLANG_ENGLISH_US 

#pragma code_page(1252) 
25 #endif //_WIN32 

////// 
30 // 

// TEXTINCLUDE 
// 

1 TEXTINCLUDE DISCARDABLE 
35 BEGIN 

"resource.h\0" 

END 

2 TEXTINCLUDE DISCARDABLE 
40 BEGIN 

"#i ncl ude ""newres . h""\r\n" 
"\0" 

END 

45 3 TEXTINCLUDE DISCARDABLE 
BEGIN 

"\r\n" 
"\0" 

END 



50 



#endif // apstudio_invoked 



l/ll/ll/ll/l//ll/llll/llllllllllllllllllllllllllllllllllllllllllf""" 
55 ////// 
// 

// Dialog 

// 

60 WINCORR32DLG DIALOG DISCARDABLE 0, 0, 142 , 63 ,.wr...,rKM ■ 

STYLE DS_MODALFRAME j DS.CENTER | WS.POPUP | WS.CAPTION j WS_SYSMENU 
CAPTION "TDtor - Pocket PC ver. 1.0" 
FONT 8, "MS sans Serif" 

BEGIN 

40 
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10 



25 



30 



35 



PUSHBUTTON "DETECT INSECT" , IDC_BTN_DETECT , 29 , 22 , 84 , 17 

iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiniiiiiiiiiiif""^""" 

7 



mil. 
mm 
II 

II DESIGNINFO 

// 



#i f def APSTUDIO_INVOKED 
GUIDELINES DESIGNINFO DISCARDABLE 
BEGIN 

WINCORR32DLG, DIALOG 

15 BEGIN 

LEFTMARGIN, 7 
RIGHTMARGIN, 135 
TOPMARGIN, 7 
BOTTOMMARGIN , 56 

20 END 
END 

#endif // apstudio_invoked 



l/lllllllllllllllllllllllllllllllllllllllllllllll""""""""""" 

mm 



mill 
II 

II icon 

// 



// icon with lowest id value placed first to ensure application icon 
^/DllS"SA5r" °"icil ^'^SSArdable "Wi ncor r32 . i co" 

'tmiiiiiiiinifiim 

mill 



'ii'rtmnmiMn^^^^^ 
mm 



// Generated from the textinclude 3 resource. 
45 // 



lllllllllllllllllllllllllllllllllllllllllll'l^f'"""""'"'""'"" 

mill 



50 #endi^ // not apstudio_invoked 
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//{{N0_DEPENDENCIES}} File Name : resource. h 

// Microsoft Developer Studio generated include file. 

// used by winCorr32PktPC. rc 

5 #define WINCORR32DLG 101 
#define idi_icon_main 102 
#define idc_btn_detect 1000 

// Next default values for new objects 

10 // 

#i f def APSTUDIO_INVOKED 

#ifndef apstudio_readonly_symbols 
#define _aps_next_resource_value 103 
#define ^ps_next_command_value 40001 
15 #define ^ps_next_control_value 1001 
#define ^ps_next_symed_value 101 
#endif 
#endif 
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//Windows Audio Library v2.0 
//File Name: winaudio2.c 

#include "winaudio2.h" 

^ void *ReadWAVE( lpctstr filename, DWORD *pbsize, hwnd hwnd) 

^ HANDLE f = INVALID_HANDLE_VALUE; 

DWORD dwBytesread; * ^ ^ 

10 MY_MMCKiNFO *pRiffCkHdr, *pFmtCkHdr, *pDataCkHdr; 
PCMWAVEFORMAT *pwaveHdr; 
void *pSamples; 
BYTE bHdr[ 0x40] ; 

1^ ^^=''??e?teFile(^filename, generic_read, file_share_read, null, 

OPEN_EXISTING, 0, 0); 

-if (f == invalid_handle_value) 

20 ^ if (GetLastErrorO != ERROR_FILE_NOT_FOUND) 

MessageioxC hwnd, TEXT("Can't open wave file"), null. 
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MB_ICON ERROR) ; 

return null; 

} 



(^'(ReadFifec'f^'bHdr. sizeofC bHdr), &dwBytesread, null) » 0 
1 1 dwBytesread != sizeof( bHdr) 

) 

-if) / 

MessageBoxC hwnd, TEXT("Can't read WAVE header"), null, 

MB_ICON ERROR) ; 

CloseHandleC f); 
return null; 

35 } 



DRiffCkHdr = Cmy_mmckinfo *)bHdr; ^ .„ , . 
pFmtckHdr = (my_mmckinfo *) ((DWORD)pRiffckHdr + 8 + 4), 

pWaveHdr = (PCMWAVEFORMAT *)( (DWORD) PFmtckHdr + 8); 

poatackHdr = (my_mmckinfo *)((DWORD)pwaveHdr + pFmtCkHdr->cksize) , 

//check WAVE headers tcT' 'c'^ 

if ( pRiffCkHdr->ckid != mmioF9URCC( 'R', l . F , F ) 
bRiffCkHdr->fccType != mmioFOURCC( w , a v e ) 
pFmtCkHdr->ckid != mmi^^^^^^ , t ) 




- 8 

)&pDataCkHdr- 



>ckid i'l) !="'at') 
50 ) 

^ MessageBox( hwnd, TEXT("inconsi stent or unusual WAVE header"), 
NULL, mb_iconerror) ; 
CloseHandleC f); 
55 return NULL; 

} 

//check WAVE is PCM audio at 44. IK, 16 bits, mono 
if ( pwaveHdr->wf .wFormatTag != WAVE_FORMAT_PCM 
60 II pWaveHdr->wf .nsamplespersec != 44100 

II pwaveHdr->wBitsPerSample != 16 
II pwaveHdr->wf .nchannels != 1 
// II pwaveHdr->wf .nAvgBvtesPerSec != 88200 
// II pwaveHdr->wf .nBlockAlign != 2 
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) 

^ MessageBoxC hwnd, textC'wave file is not pcm at 44. IK, 16 bits, 

mono") I NULL, MB_ICONERROR) ; 

CloseHandleC f); 
return NULL; 

} 

//allocate memory to hold WAVE data ... 
psamples = GlobalAllocC GPTR, pDataCkHdr->cksize) ; 
if (psamples == null) 

^ MessageBoxC hwnd, TEXT("can't allocate memory"), null, 

MB_ICON ERROR) ; 

CloseHandleC f); 
return NULL; 

} 

ifTsetFilePointerC f. (DWORD) pDataCkHdr + 8 - (DWORD) pRiffCkHdr, 
^"'"'"il^eldFilef frpsamples, pDataCkHdr->cksize, &dwBytesread, null) 

77 ° II dwsytesread != pDataCkHdr->cksi ze 
) 

^ MessageBox( hwnd, TEXT("Can't read wave data"), null, 

MB_IC0N ERROR) ; 

Global Free ( psamples); 
CloseHandle( f); 
return null; 

} 

*pbsize = dwBytesread & -2; //pDataCkHdr->cksize; 
closeHandle( f) ; 
return pSamples; 
}//ReadWAVE() 

//writeWAVEO 

BOOL writeWAVE( lpctstr filename, DWORD bsize, void *psamples, hwnd 
hwnd) 

^ HANDLE f = INVALID_HANDLE_VALUE; 

DWORD dwByteswri tten ; ^ ^, ..j 

MY_MMCKINF0 *pRiffCkHdr, *pFmtCkHdr, *pDatackHdr; 

pcmwaveformat *pwaveHdr; ^„...^n oi . /m^-jr 

BYTE bHdr[ 8 + 4 + 8 + sizeof( PCMWAVEFORMAT) + 8]; //0x2C 

//create WAVE file 

f = createFile( filename, GENERIC_WRITE, 0, NULL, CREATE_^LWAYS , 

FILE_ATTRIBUTE_NORMAL , 0); 

if (f == INVALID_HANDLE_VALUE) 

^ MessageBox( hwnd, TEXT("can't create wave file"), null, 

MB_ICONERROR) ; 

return FALSE; 
] /create WAVE headers... 

PRiffCkHdr = (MY_MMCKINF0 *)bHdr; ^ .^^ , . „ 
pFmtCkHdr = (MY_MMCKINFO *)( (DWORD) PRiffCkHdr + 8 + 4), 
pWaveHdr = (PCMWAVEFORMAT *)( (DWORD) pFmtCkHdr + 8); 
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pDatackHdr = (my_mmckinfo *)((DWORD)pwaveHdr + sizeofC pcmwaveformat) 

); 

DRiffCkHdr->ckid = mmioFOURCCC 'R'.'i'.'F'.'F'); 
5 pRiffCkHdr->cksize = (8 - 8) + 4 + 8 + sizeof( PCMWAVEFORMAT) + 8 + 

''^pRiffCkHdr->fccType = mmioFOURCCC 'W , 'A' , 'V , 'E') ; 

pFmtCkHdr->ckid = mmioFOURCCC 'f'.'m'.'f ' '); 
10 pFmtCkHdr->cksize = sizeofC PCMWAVEFORMAT); 

pwaveHdr->wf .wFormatTag = wave_format_pcm; 
pWaveHdr->wf .nSamplesPerSec = 44100; 
pwaveHdr->wBitsPerSample = 16; 
15 pwaveHdr->wf .nchannels = 1; 

pwaveHdr->wf .nAvgBytesPerSec = 88200; 
pwaveHdr->wf .nBlocKAlign = 2; 

pDataCkHdr->ckid = mmioFOURCCC 'd' , 'a' , 'f , 'a') ; 
20 pDataCkHdr->cksize = bsize; 
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//write WAVE header and data . ^ ^ 

if ( wHteFileC f, bHdr, sizeofC bHdr), AdwByteswri tten . NULL) == 0 



) 



dwByteswritten != sizeofC bHdr) 
writeFileC f, psamples, bSize, &dwByteswn tten , NULL) == 0 
dwByteswritten != bsize 



MessageBoxC hwnd, TEXTC'Can't write wave file ), null, 
30 mb_iconerror) ; 

CloseHandleC f); 
return FALSE; 

CloseHandleC f); 
35 return TRUE; 
}//writeWAVEC) 
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15 



20 



25 
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//windows Audio Library v2.0 
//File Name : winaudio2.h 

#ifndef _WINAUDI02_H 
# define _WINAUDI02_H 

#define win32_lean^nd_mean 

#include <windows.h> 
#include <mmsystem.h> 

typedef DWORD my.fourcc; 

// RIFF MultiMedia chunk information data structure 
J I (Note: not present in windows CE from Pocket PC) 
typedef struct 



ckid; 
cksize; 
f ccType ; 
dwDataOffset; 

dwFl ags; 



/* chunk ID */ 
/* chunk size */ 
/* form type or list type */ 
/* offset of data portion of 

/* flags used by MMIO functions 



{ 

MY_FOURCC 
DWORD 
MY_FOURCC 
DWORD 
chunk */ 

DWORD 

V 

} MY_MMCKINFO; 

void *ReadWAVE( LPCTSTR filename, dword *pbsize, hwnd hwnd) ; 

BOOL writeWAVEC lpctstr filename, DWORD bsize, void *psamples, hwnd 

hwnd) ; 

#endif //_winaudio2„h 
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// File Name: newres.h 

#ifndef _newres_h 

#define newres_h 

5 

#if !defined(UNDER_CE) 
#define UNDER_CE _win32_wce 
#endif 

10 #if defined (_WIN32_wce) 

#i f ! def i ned (wceole_enable_dialogex) 

#define dialogex dialog discardable 

#endif 

#include <coitimctrl .h> 
15 #define shmenubar rcdata 

#if defined(wiN32_PLATFORM_PSPO && (_WIN32_WCE >= 300) 
#i ncl ude oygshel 1 . h> 
#define afxce_idr_scratch_shmenu 28700 
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#e1se 



#def i ne 
#define 
#def i ne 



I_IMAGENONE 

NOMENU 

IDS_SHNEW 



(-2) 
OXFFFF 



#define idm_SHAREDNEW 10 
#define idm_sharednewdefault 11 

#endif // _win32_wce_pspc 

#define afxce_idd_savemodifieddlg 28701 
#endif // _WIN32_WCE 



#ifdef RC_INVOKED 

#ifndef _inc_windows 

#define _inc_windows 

#i ncl ude "winuser.h" 
#i ncl ude "winver.h" 

#endif 

#endif 



// extract from windows header 
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#ifdef 
#undef 
#endif 
#def i ne 



IDC_STATIC 
IDC_STATIC 

IDC_STATIC 



(-1) 



#endif //_NEWRES_H_ 
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